home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / wizards / Wzpivot / pivstart.prg < prev    next >
Encoding:
Text File  |  1998-05-01  |  1.2 KB  |  46 lines
  1. * This is the stub which you should copy (place the modified version in
  2. * your Wizard's directory), rename, and modify to call your wizard.
  3.  
  4. PARAMETER cOutFileVarName, p2, p3, p4, p5, p6, p7, p8, p9
  5. LOCAL cClassLib,cProcs,cWizardToRun
  6.  
  7. m.cClassLib = set('classlib')
  8.  
  9. * Check parms
  10. IF TYPE("m.p2") #"C"
  11.     m.p2 = ""
  12. ENDIF
  13.  
  14. IF "XTAB" $ UPPER(m.p2)
  15.     m.cWizardToRun = "xtabwizard"        && cross tab wizard
  16. ELSE
  17.     m.cWizardToRun = "pivotwizard"        && pivot wizard
  18. ENDIF
  19.  
  20. SET CLASS TO pivot ADDITIVE
  21.  
  22. * The name "oWizard" is used in automated testing and should *NOT* be changed.
  23. public oWizard
  24. oWizard = createobj(m.cWizardToRun,m.cOutFileVarName, m.p2, m.p3, m.p4, ;
  25.     m.p5, m.p6, m.p7, m.p8, m.p9)
  26.  
  27. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  28.     oEngine.aEnvironment[17,1] = m.cClassLib
  29.     oWizard.Show
  30. endif
  31. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  32.     * It must be modeless, so leave it alone
  33. else
  34.     release oWizard
  35.     CLEAR CLASS &cWizardToRun
  36.     CLEAR CLASS wiztemplate
  37. endif
  38.  
  39. return
  40.  
  41. PROCEDURE dummy
  42.     * This routine is used to resolve Project array references.
  43.     public aflddata[1],afielddata[1],atmpglobals,awizfields,aparms
  44.     public aflddata[1],aglobals[1],aafielddata[1],atmpglobals[1]
  45.     public awizfields[1],aparms[1]
  46. ENDPROC